Option Explicit
Sub B_Sample052()
    MsgBox Application.ActivePrinter
End Sub